home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pas_all.zip
/
TI257.ASC
< prev
next >
Wrap
Text File
|
1992-08-12
|
3KB
|
133 lines
PRODUCT : TURBO GRAPHIX TOOLBOX NUMBER : 257
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 1/2
TITLE : AT&T LOADSCREEN PATCH
The following modifications may be made to the GRAPHIX.SYS file
of the Turbo Graphix Toolbox to allow the LoadScreen routine to
function properly on an AT&T 6300.
1. Move the procedures SwapScreen, CopyScreen and InvertScreen
to a position just above the SaveScreen Procedure.
2. Change the SaveScreen procedure (after the main begin) to
read as follows: ( The lines which have been changed have
the symbol {Changed} next to them.)
begin
move(mem[GrafBase:0000],mem[seg(ScreenGlb^):0000],
(ScreenSizeGlb+1) shl 1); {Changed}
IOErr := False;
{picture := ptr(GrafBase,0); } {Changed}
picture := ScreenGlb; {Changed}
assign(PictureFile,FileName);
{$I-} rewrite(PictureFile); {$I+}
IOCheck;
if not ioerr then
begin
{$I-} write(PictureFile,picture^); {$I+}
IOCheck;
end;
if not ioerr then
begin
{$I-} close(PictureFile); {$I+}
IOCheck;
end;
move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000], {Changed}
(ScreenSizeGlb+1) shl 1);
end;
3. Change the LoadScreen procedure (after the main begin) to
read as follows: ( The lines which have been changed have
the symbol {Changed} next to them.)
procedure LoadScreen(FileName:wrkstring);
type PicFile = file of ScrenType;
var Picture:screenpointer;
PictureFile : PicFile;
begin
PRODUCT : TURBO GRAPHIX TOOLBOX NUMBER : 257
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 2/2
TITLE : AT&T LOADSCREEN PATCH
{picture := ptr(GrafBase,0);} {Changed}
picture := ScreenGlb; {Changed}
assign(Picture,FileName);
{$I-} reset(PictureFile); {$I+}
if IOResult<>then Error(11,5)
else
begin
read(PictureFile,picture^);
close(PictureFile);
end;
move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000], {Changed}
(ScreenSizeGlb + 1) shl 1);
end;
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.